Mapa

Row

Título del mapa

RUTA TURISTICA

Row

Descripción del mapa

Bellos lugares turisticos para ir de vacaciones, rodeado de naturaleza.

Podras disfrutar de las bellas vistas que ofrecen cada uno de los lugares

Trendra la mejor experiencia de su vida

También puedes poner imágenes:



O hipervínculos, por ejemplo a Google maps

Row

Referencias

  1. Referencia uno: google maps

  2. Referencia dos:

  3. Referencia tres

---
title: "MAPA TURISTICO"
author: "ALMA GARCIA"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    favicon: escudo.jpg
    logo: escudo.jpg
    fig_mobile: TRUE
    theme: cosmo
    social: menu
    source_code: embed
    navbar:
      - {title: "Crea tu propio mapa", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
      - {title: "INAE V, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---

```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```

Mapa {data-icon="fa-map"}
=====================================

Row
-----------------------------------------------------------------------

### Título del mapa
RUTA TURISTICA
```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "MIchoacan", Giro = "Mariposas", longitud = -100.3016, latitud = 19.5795)
lugar2 <- c(Nombre = "Yucantan", Giro = "Museo Maya", longitud = -89.6253, latitud = 21.0351)
lugar3 <- c(Nombre = "Puerto Vallarta", Giro = "Playa", longitud = -105.2279, latitud = 20.6627)
lugar4 <- c(Nombre = "Monterrey", Giro = "Museo de Arte", longitud = -100.3092, latitud = 25.6728)
lugar5 <- c(Nombre = "Puerto Escondido", Giro = "Costa Oaxaqueña", longitud = -97.0813, latitud = 15.8627)
lugar6 <- c(Nombre = "Chihuahua", Giro = "Parque Nacional Cascada de Basaseachi", longitud = -108.3474, latitud = 27.9491)

### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro)) ### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) ### Imprimimos el mapa mapa ``` Row ----------------------------------------------------------------------- ### Descripción del mapa Bellos lugares turisticos para ir de vacaciones, rodeado de naturaleza. *Podras disfrutar de las bellas vistas que ofrecen cada uno de los lugares * **Trendra la mejor experiencia de su vida** También puedes poner imágenes:
![](puesto-escondido.jpg){heigth="100"}

[O hipervínculos, por ejemplo a Google maps](https://www.google.com.mx/maps/) Row ----------------------------------------------------------------------- ### Referencias 1. Referencia uno: google maps 2. Referencia dos: 3. Referencia tres